package Error::Hierarchy::Internal::CustomMessage;

# $Id: CustomMessage.pm 10101 2005-08-09 16:13:58Z gr $

use warnings;
use strict;


our $VERSION = '0.05';


use base 'Error::Hierarchy::Internal';

__PACKAGE__->mk_accessors(qw(custom_message));

use constant default_message => '%s';

use constant PROPERTIES => ( 'custom_message' );

1;


__END__

{% USE p = PodGenerated %}

=head1 NAME

Error::Hierarchy::Internal::CustomMessage - custom internal exception

=head1 SYNOPSIS

  Error::Hierarchy::Internal::CustomMessage->throw(custom_message => ... );

=head1 DESCRIPTION

This class implements an exception that can be thrown whenever you want to
indicate that an internal error has occurred but there is no specific
exception for it.

=head1 PROPERTIES

This exception class inherits all properties of L<Error::Hierarchy::Internal>.

It has the following additional property.

=over 4

=item custom_message

The string that is used when the exception object is stringified.

=back

=head1 METHODS

=over 4

{% p.write_methods %}

=back

{% p.write_inheritance %}

{% PROCESS standard_pod %}

=cut

